* lisp/simple.el (read-from-kill-ring): Use frame-text-cols, not frame-width.

diff --git a/lisp/simple.el b/lisp/simple.el
index c9f4f2bb4455f177a88b343c88d94ab39247daba..77888d07f1e25d31f5bdf9f891566eb231ec2ec2 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5478,7 +5478,7 @@ With ARG, rotate that many kills forward (or backward, if negative)."
           (mapcar (lambda (s)
                     (let* ((s (query-replace-descr s))
                            (b 0)
-                           (limit (frame-width)))
+                           (limit (frame-text-cols)))
                       ;; Add ellipsis on leading whitespace
                       (when (string-match "\\`[[:space:]]+" s)
                         (setq b (match-end 0))